Cream of the Crop 22/Cream of the Crop 22.iso/database/ad3dcal3.zip/SAM3DCAL.ZIP/CALDEMO.DFM/CALDEMO.txt

Text File | 1996-06-20 | 75KB | 2,733 lines

object TAdrock3dCalendarForm: TTAdrock3dCalendarForm
  Left = 112
  Top = 130
  BorderStyle = bsDialog
  Caption = 'Sample application for TAdrock3dCalendar.'
  ClientHeight = 378
  ClientWidth = 624
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  Position = poScreenCenter
  OnCreate = FormCreate
  TextHeight = 16
  object Image1: TImage
    Left = 592
    Top = 16
    Width = 33
    Height = 17
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object Image2: TImage
    Left = 592
    Top = 0
    Width = 33
    Height = 17
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object TabbedNotebook1: TTabbedNotebook
    Left = 4
    Top = 4
    Width = 617
    Height = 369
    PageIndex = 6
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabsPerRow = 4
    TabFont.Color = clBtnText
    TabFont.Height = -11
    TabFont.Name = 'MS Sans Serif'
    TabFont.Style = []
    TabOrder = 0
    OnChange = TabbedNotebook1Change
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Default'
      object Adrock3dCalendar2: TAdrock3dCalendar
        Left = 4
        Top = 8
        Width = 277
        Height = 301
        ButtonsHeight = 25
        CursorSelectable = cuSelectable
        MonthButtonPercentage = 60.000000000000000000
        SpaceBetweenButtonsAndBottom = 0
        SpaceAtTop = 32
        SpaceAtBottom = 5
        CellTextVerticalAlign = vtTop
        CellTextHorizontalAlign = htLeft
        CellSpaceX = 6
        CellSpaceY = 6
        Text3dLabels = tsRaised
        Text3dCells = tsNone
        StartOfWeek = swMonday
        WeekDayHeaderBevel = bvRaised
        CellBevelWidth = 2
        CellsSurroundBevel = bvRaised
        ShowOnCalendar = scNothing
        ColorCombosBack = clOlive
        ColorSaturday = clMaroon
        ColorMonFri = clBlack
        ColorBack = 16744576
        ColorCellsBack = clLime
        ColorBetweenCellsBackColor = clBlue
        ColorSelectedBackColor = clGreen
        ColorPrevNextMonthBackColor = clWhite
        ColorWeekDayHeaderMonFri = clBlack
        ColorWeekDayHeaderSaturday = clMaroon
        WeekDayHeaderDisplayLen = 1
        Day = 1
        Month = 11
        Year = 1991
        Date = 727137.000000000000000000
        MouseMode = cmClickOnCell
        MonthLabelFont.Color = clBlue
        MonthLabelFont.Height = -16
        MonthLabelFont.Name = 'MS Sans Serif'
        MonthLabelFont.Style = [fsBold]
        YearLabelFont.Color = clMaroon
        YearLabelFont.Height = -16
        YearLabelFont.Name = 'MS Sans Serif'
        YearLabelFont.Style = [fsBold]
        ButtonsFont.Color = clMaroon
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'Times New Roman'
        ButtonsFont.Style = [fsBold]
        WeekDayHeaderFont.Color = clBlack
        WeekDayHeaderFont.Height = -21
        WeekDayHeaderFont.Name = 'Times New Roman'
        WeekDayHeaderFont.Style = [fsBold]
        CellFont.Color = clBlack
        CellFont.Height = -11
        CellFont.Name = 'MS Sans Serif'
        CellFont.Style = [fsBold]
        SelectedCellFont.Color = clWindowText
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = []
        CombosFont.Color = clBlack
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = [fsBold]
        PreviousYearCaption = 'Year'
        PreviousMonthCaption = 'Month'
        NextYearCaption = 'Year'
        NextMonthCaption = 'Month'
        Version = '1.22'
        object CalendarButton: TBitBtn
          Left = 8
          Top = 8
          Width = 261
          Height = 25
          TabOrder = 2
          OnClick = CalendarButtonClick
        end
      end
      object OptionsGroupBox: TGroupBox
        Left = 420
        Top = 4
        Width = 173
        Height = 69
        Caption = 'Options'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 4
        object MonthAndYearComboRadioButton: TRadioButton
          Left = 8
          Top = 32
          Width = 153
          Height = 17
          Caption = 'Month && Year Combo Box'#39's'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = MonthAndYearComboRadioButtonClick
        end
        object NothingRadioButton: TRadioButton
          Left = 8
          Top = 16
          Width = 153
          Height = 17
          Caption = 'Nothing'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = NothingRadioButtonClick
        end
        object MonthAndYearLabelsRadioButton: TRadioButton
          Left = 8
          Top = 48
          Width = 153
          Height = 17
          Caption = 'Month && Year Labels'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = MonthAndYearLabelsRadioButtonClick
        end
      end
      object ShowOnCalendarGroupBox: TGroupBox
        Left = 420
        Top = 72
        Width = 173
        Height = 129
        Caption = 'ShowOnCalendar'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 5
        object ShowButtonsCheckBox: TCheckBox
          Left = 8
          Top = 16
          Width = 89
          Height = 17
          Caption = 'ShowButtons'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 0
          OnClick = ShowButtonsCheckBoxClick
        end
        object ShowWeekDayHeaderCheckBox: TCheckBox
          Left = 8
          Top = 36
          Width = 157
          Height = 17
          Caption = 'ShowWeekDayHeader'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 1
          OnClick = ShowWeekDayHeaderCheckBoxClick
        end
        object ShowSaturdayColorCheckBox: TCheckBox
          Left = 8
          Top = 84
          Width = 157
          Height = 17
          Caption = 'ShowSaturdayColor'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 3
          OnClick = ShowSaturdayColorCheckBoxClick
        end
        object ShowSundayColorCheckBox: TCheckBox
          Left = 8
          Top = 104
          Width = 157
          Height = 17
          Caption = 'ShowSundayColor'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 4
          OnClick = ShowSundayColorCheckBoxClick
        end
        object ShowPrevNextMonthCheckBox: TCheckBox
          Left = 8
          Top = 60
          Width = 157
          Height = 17
          Caption = 'ShowPrevNextMonth'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 2
          OnClick = ShowPrevNextMonthCheckBoxClick
        end
      end
      object HorizontalAlignmentGroupBox: TGroupBox
        Left = 288
        Top = 72
        Width = 129
        Height = 69
        Caption = 'Horizontal Alignment'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 2
        object RadioButton4: TRadioButton
          Left = 8
          Top = 16
          Width = 69
          Height = 17
          Caption = 'Left'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton4Click
        end
        object RadioButton5: TRadioButton
          Left = 8
          Top = 32
          Width = 65
          Height = 17
          Caption = 'Center'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioButton5Click
        end
        object RadioButton6: TRadioButton
          Left = 8
          Top = 48
          Width = 69
          Height = 17
          Caption = 'Right'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton6Click
        end
      end
      object VerticalAlignmentGroupBox: TGroupBox
        Left = 288
        Top = 4
        Width = 129
        Height = 69
        Caption = 'Vertical Alignment'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 1
        object RadioButton7: TRadioButton
          Left = 8
          Top = 16
          Width = 69
          Height = 17
          Caption = 'Top'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 0
          TabStop = True
          OnClick = RadioButton7Click
        end
        object RadioButton8: TRadioButton
          Left = 8
          Top = 32
          Width = 65
          Height = 17
          Caption = 'Center'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioButton8Click
        end
        object RadioButton9: TRadioButton
          Left = 8
          Top = 48
          Width = 69
          Height = 17
          Caption = 'Bottom'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton9Click
        end
      end
      object CellSpaceGroupBox: TGroupBox
        Left = 288
        Top = 140
        Width = 129
        Height = 61
        Caption = 'Cell Space'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 3
        object Label13: TLabel
          Left = 8
          Top = 20
          Width = 7
          Height = 13
          Caption = 'X'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object Label14: TLabel
          Left = 8
          Top = 40
          Width = 7
          Height = 13
          Caption = 'Y'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ScrollBar10: TScrollBar
          Left = 24
          Top = 20
          Width = 97
          Height = 14
          Max = 10
          TabOrder = 0
          OnChange = ScrollBar10Change
        end
        object ScrollBar11: TScrollBar
          Left = 24
          Top = 40
          Width = 97
          Height = 14
          Max = 10
          TabOrder = 1
          OnChange = ScrollBar11Change
        end
      end
      object CellBevelGroupBox: TGroupBox
        Left = 288
        Top = 200
        Width = 301
        Height = 53
        Caption = 'Cell Bevel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 6
        object Label16: TLabel
          Left = 12
          Top = 32
          Width = 58
          Height = 13
          Caption = 'Bevel Width'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ScrollBar13: TScrollBar
          Left = 80
          Top = 32
          Width = 213
          Height = 14
          Max = 10
          TabOrder = 0
          OnChange = ScrollBar13Change
        end
        object RadioButton10: TRadioButton
          Left = 104
          Top = 14
          Width = 53
          Height = 17
          Caption = 'Raised'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          OnClick = RadioButton10Click
        end
        object RadioButton11: TRadioButton
          Left = 12
          Top = 14
          Width = 53
          Height = 17
          Caption = 'None'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton11Click
        end
        object RadioButton12: TRadioButton
          Left = 216
          Top = 14
          Width = 61
          Height = 17
          Caption = 'Lowered'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          TabStop = True
          OnClick = RadioButton12Click
        end
      end
      object CellSurroundGroupBox: TGroupBox
        Left = 288
        Top = 256
        Width = 301
        Height = 53
        Caption = 'Cells Surround Bevel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        TabOrder = 7
        object Label15: TLabel
          Left = 12
          Top = 32
          Width = 58
          Height = 13
          Caption = 'Bevel Width'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
        end
        object ScrollBar12: TScrollBar
          Left = 80
          Top = 32
          Width = 213
          Height = 14
          Max = 10
          TabOrder = 0
          OnChange = ScrollBar12Change
        end
        object RadioButton13: TRadioButton
          Left = 104
          Top = 14
          Width = 53
          Height = 17
          Caption = 'Raised'
          Checked = True
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          TabStop = True
          OnClick = RadioButton13Click
        end
        object RadioButton14: TRadioButton
          Left = 12
          Top = 14
          Width = 53
          Height = 17
          Caption = 'None'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnClick = RadioButton14Click
        end
        object RadioButton15: TRadioButton
          Left = 216
          Top = 14
          Width = 61
          Height = 17
          Caption = 'Lowered'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 3
          OnClick = RadioButton15Click
        end
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Precision Spacing'
      object Label4: TLabel
        Left = 292
        Top = 117
        Width = 141
        Height = 32
        AutoSize = False
        Caption = 'Extra Space At Left, Used for exact centering.'
        WordWrap = True
      end
      object Label5: TLabel
        Left = 292
        Top = 16
        Width = 121
        Height = 17
        AutoSize = False
        Caption = 'Extra Space at Top'
        WordWrap = True
      end
      object Label6: TLabel
        Left = 292
        Top = 51
        Width = 121
        Height = 17
        AutoSize = False
        Caption = 'Extra Space at Bottom'
        WordWrap = True
      end
      object Label7: TLabel
        Left = 292
        Top = 86
        Width = 121
        Height = 17
        AutoSize = False
        Caption = 'Extra Space at Sides'
        WordWrap = True
      end
      object Label8: TLabel
        Left = 292
        Top = 288
        Width = 145
        Height = 25
        AutoSize = False
        Caption = 'Space Between Buttons and Bottom'
        WordWrap = True
      end
      object Label9: TLabel
        Left = 292
        Top = 155
        Width = 145
        Height = 17
        AutoSize = False
        Caption = 'SpaceBetweenTopAndLabels'
        WordWrap = True
      end
      object Label10: TLabel
        Left = 292
        Top = 190
        Width = 141
        Height = 31
        AutoSize = False
        Caption = 'Space Between Labels And WeekDayHeader'
        WordWrap = True
      end
      object Label11: TLabel
        Left = 292
        Top = 257
        Width = 141
        Height = 28
        AutoSize = False
        Caption = 'Space Between Cells And Buttons'
        WordWrap = True
      end
      object Label12: TLabel
        Left = 292
        Top = 225
        Width = 141
        Height = 28
        AutoSize = False
        Caption = 'Space Between WeekDayHeader and Cells'
        WordWrap = True
      end
      object ScrollBar1: TScrollBar
        Left = 440
        Top = 16
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 0
        OnChange = ScrollBar1Change
      end
      object ScrollBar2: TScrollBar
        Left = 440
        Top = 51
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 1
        OnChange = ScrollBar2Change
      end
      object ScrollBar3: TScrollBar
        Left = 440
        Top = 86
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 2
        OnChange = ScrollBar3Change
      end
      object ScrollBar4: TScrollBar
        Left = 440
        Top = 121
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 4
        OnChange = ScrollBar4Change
      end
      object Adrock3dCalendar4: TAdrock3dCalendar
        Left = 8
        Top = 12
        Width = 277
        Height = 301
        ButtonsHeight = 25
        CursorSelectable = cuDefault
        CursorClick = cuDefault
        MonthButtonPercentage = 55.000000000000010000
        CellSpaceX = 0
        CellSpaceY = 0
        Text3dCells = tsNone
        StartOfWeek = swMonday
        WeekDayHeaderBevel = bvRaised
        CellBevelWidth = 2
        ShowOnCalendar = scLabels
        ColorSaturday = clMaroon
        ColorMonFri = clGreen
        ColorBack = 16744576
        ColorCellsBack = clWhite
        ColorBetweenCellsBackColor = clTeal
        ColorSelectedBackColor = clGreen
        ColorPrevNextMonthBackColor = clWhite
        ColorWeekDayHeaderSaturday = clMaroon
        Day = 1
        Month = 11
        Year = 1995
        Date = 728598.000000000000000000
        MouseMode = cmClickOnCell
        MonthLabelFont.Color = clBlack
        MonthLabelFont.Height = -19
        MonthLabelFont.Name = 'MS Sans Serif'
        MonthLabelFont.Style = [fsBold]
        YearLabelFont.Color = clMaroon
        YearLabelFont.Height = -19
        YearLabelFont.Name = 'MS Sans Serif'
        YearLabelFont.Style = [fsBold]
        ButtonsFont.Color = clMaroon
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'Times New Roman'
        ButtonsFont.Style = [fsBold]
        WeekDayHeaderFont.Color = clBlack
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = [fsBold]
        CellFont.Color = clWindowText
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = []
        SelectedCellFont.Color = clWindowText
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = []
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Year'
        PreviousMonthCaption = 'Mon'
        NextYearCaption = 'Year'
        NextMonthCaption = 'Mon'
        Version = '1.22'
      end
      object ScrollBar5: TScrollBar
        Left = 440
        Top = 155
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 5
        OnChange = ScrollBar5Change
      end
      object ScrollBar6: TScrollBar
        Left = 440
        Top = 190
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 6
        OnChange = ScrollBar6Change
      end
      object ScrollBar7: TScrollBar
        Left = 440
        Top = 257
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 8
        OnChange = ScrollBar7Change
      end
      object ScrollBar8: TScrollBar
        Left = 440
        Top = 292
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 9
        OnChange = ScrollBar8Change
      end
      object ScrollBar9: TScrollBar
        Left = 440
        Top = 225
        Width = 153
        Height = 14
        LargeChange = 5
        TabOrder = 7
        OnChange = ScrollBar9Change
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Fonts && Colors'
      object Adrock3dCalendar6: TAdrock3dCalendar
        Left = 4
        Top = 12
        Width = 421
        Height = 301
        ButtonsHeight = 25
        CursorSelectable = cuDefault
        CursorClick = cuDefault
        MonthButtonPercentage = 55.000000000000010000
        SpaceAtBottom = 5
        CellSpaceX = 3
        CellSpaceY = 3
        Text3dCells = tsNone
        StartOfWeek = swMonday
        WeekDayHeaderBevel = bvRaised
        CellBevelWidth = 2
        CellsSurroundBevel = bvRaised
        CellsSurroundBevelWidth = 4
        ShowOnCalendar = scLabels
        ShowButtonBar = False
        ColorSaturday = clGreen
        ColorBack = clGreen
        ColorCellsBack = clWhite
        ColorSelectedBackColor = clFuchsia
        ColorPrevNextMonthBackColor = clWhite
        ColorWeekDayHeaderSaturday = clGreen
        Day = 1
        Month = 11
        Year = 1995
        Date = 728598.000000000000000000
        MouseMode = cmClickOnCell
        MonthLabelFont.Color = clBlue
        MonthLabelFont.Height = -16
        MonthLabelFont.Name = 'MS Sans Serif'
        MonthLabelFont.Style = [fsBold]
        YearLabelFont.Color = clMaroon
        YearLabelFont.Height = -16
        YearLabelFont.Name = 'MS Sans Serif'
        YearLabelFont.Style = [fsBold]
        ButtonsFont.Color = clMaroon
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'Times New Roman'
        ButtonsFont.Style = [fsBold]
        WeekDayHeaderFont.Color = clBlack
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = [fsBold]
        CellFont.Color = clBlack
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = [fsBold]
        SelectedCellFont.Color = clWindowText
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = []
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Year'
        PreviousMonthCaption = 'Mon'
        NextYearCaption = 'Year'
        NextMonthCaption = 'Mon'
        Version = '1.22'
      end
      object BitBtn12: TBitBtn
        Left = 432
        Top = 196
        Width = 161
        Height = 21
        Caption = 'Default Cell Font'
        TabOrder = 1
        OnClick = BitBtn12Click
      end
      object BitBtn17: TBitBtn
        Left = 432
        Top = 220
        Width = 161
        Height = 21
        Caption = 'Week Day Font'
        TabOrder = 2
        OnClick = BitBtn17Click
      end
      object BitBtn16: TBitBtn
        Left = 432
        Top = 244
        Width = 161
        Height = 21
        Caption = 'Select Cell Font'
        TabOrder = 3
        OnClick = BitBtn16Click
      end
      object BitBtn11: TBitBtn
        Left = 432
        Top = 112
        Width = 161
        Height = 21
        Caption = 'Calendar Back Color'
        TabOrder = 4
        OnClick = BitBtn11Click
      end
      object BitBtn18: TBitBtn
        Left = 432
        Top = 160
        Width = 161
        Height = 21
        Caption = 'Space Between Cells Color'
        TabOrder = 5
        OnClick = BitBtn18Click
      end
      object BitBtn19: TBitBtn
        Left = 432
        Top = 136
        Width = 161
        Height = 21
        Caption = 'Weekday Header Back Color'
        TabOrder = 6
        OnClick = BitBtn19Click
      end
      object BitBtn20: TBitBtn
        Left = 432
        Top = 12
        Width = 161
        Height = 21
        Caption = 'Color Mon-Fri'
        TabOrder = 7
        OnClick = BitBtn20Click
      end
      object BitBtn21: TBitBtn
        Left = 432
        Top = 36
        Width = 161
        Height = 21
        Caption = 'Color Saturday'
        TabOrder = 8
        OnClick = BitBtn21Click
      end
      object BitBtn22: TBitBtn
        Left = 432
        Top = 60
        Width = 161
        Height = 21
        Caption = 'Color Sunday'
        TabOrder = 9
        OnClick = BitBtn22Click
      end
      object BitBtn23: TBitBtn
        Left = 432
        Top = 84
        Width = 161
        Height = 21
        Caption = 'Color Prev/Next Month'
        TabOrder = 10
        OnClick = BitBtn23Click
      end
      object BitBtn24: TBitBtn
        Left = 432
        Top = 268
        Width = 161
        Height = 21
        Caption = 'Month Font'
        TabOrder = 11
        OnClick = BitBtn24Click
      end
      object BitBtn25: TBitBtn
        Left = 432
        Top = 292
        Width = 161
        Height = 21
        Caption = 'Year Font'
        TabOrder = 12
        OnClick = BitBtn25Click
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Method Example'
      object Label22: TLabel
        Left = 256
        Top = 8
        Width = 68
        Height = 13
        Caption = 'Selected Date'
      end
      object SelectedDateLabel: TLabel
        Left = 336
        Top = 8
        Width = 61
        Height = 13
        AutoSize = False
        Caption = 'SelectedDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 404
        Top = 8
        Width = 19
        Height = 13
        Caption = 'Day'
      end
      object SelectedDayLabel: TLabel
        Left = 428
        Top = 8
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label25: TLabel
        Left = 456
        Top = 8
        Width = 30
        Height = 13
        Caption = 'Month'
      end
      object SelectedMonthLabel: TLabel
        Left = 492
        Top = 8
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SelectedYearLabel: TLabel
        Left = 556
        Top = 8
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectedYearLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label26: TLabel
        Left = 528
        Top = 8
        Width = 22
        Height = 13
        Caption = 'Year'
      end
      object Label27: TLabel
        Left = 256
        Top = 24
        Width = 63
        Height = 13
        Caption = 'Day of Week'
      end
      object DayOfWeekLabel: TLabel
        Left = 344
        Top = 24
        Width = 89
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DayOfYearLabel: TLabel
        Left = 348
        Top = 88
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label32: TLabel
        Left = 256
        Top = 88
        Width = 56
        Height = 13
        Caption = 'Day of Year'
      end
      object Label28: TLabel
        Left = 456
        Top = 40
        Width = 66
        Height = 13
        Caption = 'Week of Year'
      end
      object WeekOfYearLabel: TLabel
        Left = 532
        Top = 40
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object WeekOfMonthLabel: TLabel
        Left = 532
        Top = 24
        Width = 33
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label30: TLabel
        Left = 456
        Top = 24
        Width = 74
        Height = 13
        Caption = 'Week of Month'
      end
      object Label24: TLabel
        Left = 456
        Top = 100
        Width = 36
        Height = 13
        Caption = 'Century'
      end
      object CenturyLabel: TLabel
        Left = 532
        Top = 100
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Quarter: TLabel
        Left = 456
        Top = 84
        Width = 35
        Height = 13
        Caption = 'Quarter'
      end
      object QuarterLabel: TLabel
        Left = 532
        Top = 84
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label29: TLabel
        Left = 456
        Top = 68
        Width = 28
        Height = 13
        Caption = 'Dayth'
      end
      object DayThLabel: TLabel
        Left = 532
        Top = 68
        Width = 53
        Height = 13
        AutoSize = False
        Caption = 'DayThLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label31: TLabel
        Left = 456
        Top = 188
        Width = 46
        Height = 13
        Caption = 'Days Ago'
      end
      object DaysAgoLabel: TLabel
        Left = 520
        Top = 188
        Width = 75
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label33: TLabel
        Left = 456
        Top = 203
        Width = 56
        Height = 13
        Caption = 'Weeks Ago'
      end
      object WeeksAgoLabel: TLabel
        Left = 520
        Top = 203
        Width = 75
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label35: TLabel
        Left = 456
        Top = 218
        Width = 57
        Height = 13
        Caption = 'Months Ago'
      end
      object MonthsAgoLabel: TLabel
        Left = 520
        Top = 218
        Width = 75
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label37: TLabel
        Left = 456
        Top = 248
        Width = 49
        Height = 13
        Caption = 'Years Ago'
      end
      object YearsAgoLabel: TLabel
        Left = 520
        Top = 248
        Width = 75
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label34: TLabel
        Left = 256
        Top = 176
        Width = 100
        Height = 13
        Caption = 'Days Between Dates'
      end
      object DaysBetweenDatesLabel: TLabel
        Left = 420
        Top = 176
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label38: TLabel
        Left = 256
        Top = 192
        Width = 110
        Height = 13
        Caption = 'Weeks Between Dates'
      end
      object WeeksBetweenDatesLabel: TLabel
        Left = 420
        Top = 192
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label40: TLabel
        Left = 256
        Top = 208
        Width = 111
        Height = 13
        Caption = 'Months Between Dates'
      end
      object MonthsBetweenDatesLabel: TLabel
        Left = 420
        Top = 208
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label42: TLabel
        Left = 256
        Top = 240
        Width = 103
        Height = 13
        Caption = 'Years Between Dates'
      end
      object YearsBetweenDatesLabel: TLabel
        Left = 420
        Top = 240
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label36: TLabel
        Left = 256
        Top = 256
        Width = 161
        Height = 17
        AutoSize = False
        Caption = 'Boundary Weeks Between Dates'
        WordWrap = True
      end
      object BoundryWeeksBetweenDatesLabel: TLabel
        Left = 420
        Top = 256
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label39: TLabel
        Left = 256
        Top = 272
        Width = 161
        Height = 17
        AutoSize = False
        Caption = 'Boundary Months Between Dates'
        WordWrap = True
      end
      object BoundryMonthsBetweenDatesLabel: TLabel
        Left = 420
        Top = 272
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label43: TLabel
        Left = 256
        Top = 304
        Width = 161
        Height = 17
        AutoSize = False
        Caption = 'Boundary Years Between Dates'
        WordWrap = True
      end
      object BoundryYearsBetweenDatesLabel: TLabel
        Left = 420
        Top = 304
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label41: TLabel
        Left = 256
        Top = 56
        Width = 63
        Height = 17
        AutoSize = False
        Caption = 'Day of Week'
      end
      object DelphiDayOfWeekLabel: TLabel
        Left = 348
        Top = 56
        Width = 89
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label44: TLabel
        Left = 256
        Top = 68
        Width = 193
        Height = 17
        AutoSize = False
        Caption = '(Translated 1=Sunday,2=Monday etc.. )'
      end
      object Label45: TLabel
        Left = 256
        Top = 288
        Width = 161
        Height = 17
        AutoSize = False
        Caption = 'Boundary Quarters Between Dates'
        WordWrap = True
      end
      object BoundryQuartersBetweenDatesLabel: TLabel
        Left = 420
        Top = 288
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label46: TLabel
        Left = 456
        Top = 233
        Width = 62
        Height = 13
        Caption = 'Quarters Ago'
      end
      object QuartersAgoLabel: TLabel
        Left = 520
        Top = 233
        Width = 75
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label1: TLabel
        Left = 256
        Top = 104
        Width = 77
        Height = 13
        Caption = 'Days left in Year'
      end
      object DaysLeftInYearLabel: TLabel
        Left = 348
        Top = 104
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label63: TLabel
        Left = 256
        Top = 124
        Width = 64
        Height = 13
        Caption = 'Day of Month'
      end
      object DayOfMonthLabel: TLabel
        Left = 348
        Top = 124
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label65: TLabel
        Left = 256
        Top = 36
        Width = 193
        Height = 17
        AutoSize = False
        Caption = '(Based on start day of week, 2=Monday)'
      end
      object Label62: TLabel
        Left = 256
        Top = 140
        Width = 85
        Height = 13
        Caption = 'Days left in Month'
      end
      object DaysLeftInMonthLabel: TLabel
        Left = 348
        Top = 140
        Width = 30
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label64: TLabel
        Left = 256
        Top = 224
        Width = 116
        Height = 13
        Caption = 'Quarters Between Dates'
      end
      object QuartersBetweenDatesLabel: TLabel
        Left = 420
        Top = 224
        Width = 25
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Adrock3dCalendar7: TAdrock3dCalendar
        Left = 4
        Top = 8
        Width = 245
        Height = 305
        ButtonsHeight = 25
        MonthButtonPercentage = 65.000000000000000000
        SpaceBetweenButtonsAndBottom = 0
        SpaceAtBottom = 5
        StartOfWeek = swMonday
        WeekDayHeaderBevel = bvRaised
        ShowOnCalendar = scLabels
        ColorSaturday = clGreen
        ColorPrevNextMonthBackColor = clBtnFace
        ColorWeekDayHeaderSaturday = clGreen
        Day = 22
        Month = 11
        Year = 1995
        Date = 728619.000000000000000000
        ShowPrevNextMonth = False
        SelectMode = smDuringMouseMove
        MonthLabelFont.Color = clWindowText
        MonthLabelFont.Height = -13
        MonthLabelFont.Name = 'System'
        MonthLabelFont.Style = []
        YearLabelFont.Color = clWindowText
        YearLabelFont.Height = -13
        YearLabelFont.Name = 'System'
        YearLabelFont.Style = []
        ButtonsFont.Color = clWindowText
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'System'
        ButtonsFont.Style = []
        WeekDayHeaderFont.Color = clWindowText
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = []
        CellFont.Color = clWindowText
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = []
        SelectedCellFont.Color = clWindowText
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = []
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Y'
        PreviousMonthCaption = 'M'
        NextYearCaption = 'Y'
        NextMonthCaption = 'M'
        OnDateChange = Adrock3dCalendar7DateChange
        Version = '1.22'
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Method Example2'
      object Label2: TLabel
        Left = 260
        Top = 16
        Width = 68
        Height = 13
        Caption = 'Selected Date'
      end
      object SelectedDateLabel1: TLabel
        Left = 400
        Top = 16
        Width = 61
        Height = 13
        AutoSize = False
        Caption = 'SelectedDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label48: TLabel
        Left = 260
        Top = 60
        Width = 118
        Height = 13
        Caption = 'Selected Date + 1 Week'
      end
      object SelectedDatePlus1DayLabel: TLabel
        Left = 400
        Top = 40
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label50: TLabel
        Left = 260
        Top = 80
        Width = 119
        Height = 13
        Caption = 'Selected Date + 1 Month'
      end
      object Label47: TLabel
        Left = 260
        Top = 100
        Width = 111
        Height = 13
        Caption = 'Selected Date + 1 Year'
      end
      object Label54: TLabel
        Left = 260
        Top = 40
        Width = 108
        Height = 13
        Caption = 'Selected Date + 1 Day'
      end
      object SelectedDatePlus1WeekLabel: TLabel
        Left = 400
        Top = 60
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SelectedDatePlus1MonthLabel: TLabel
        Left = 400
        Top = 80
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SelectedDatePlus1YearLabel: TLabel
        Left = 400
        Top = 100
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label49: TLabel
        Left = 260
        Top = 140
        Width = 115
        Height = 13
        Caption = 'Selected Date - 1 Week'
      end
      object SelectedDateMinus1DayLabel: TLabel
        Left = 400
        Top = 120
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label52: TLabel
        Left = 260
        Top = 160
        Width = 116
        Height = 13
        Caption = 'Selected Date - 1 Month'
      end
      object Label53: TLabel
        Left = 260
        Top = 180
        Width = 108
        Height = 13
        Caption = 'Selected Date - 1 Year'
      end
      object Label55: TLabel
        Left = 260
        Top = 120
        Width = 105
        Height = 13
        Caption = 'Selected Date - 1 Day'
      end
      object SelectedDateMinus1WeekLabel: TLabel
        Left = 400
        Top = 140
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SelectedDateMinus1MonthLabel: TLabel
        Left = 400
        Top = 160
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object SelectedDateMinus1YearLabel: TLabel
        Left = 400
        Top = 180
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label51: TLabel
        Left = 260
        Top = 208
        Width = 45
        Height = 13
        Caption = 'AddDate '
      end
      object AddDateLabel: TLabel
        Left = 400
        Top = 208
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label57: TLabel
        Left = 340
        Top = 208
        Width = 9
        Height = 13
        Caption = 'of'
      end
      object Label58: TLabel
        Left = 260
        Top = 236
        Width = 39
        Height = 13
        Caption = 'DateDiff'
      end
      object DateDiffLabel: TLabel
        Left = 400
        Top = 236
        Width = 73
        Height = 13
        AutoSize = False
        Caption = 'SelectDateLabel'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label56: TLabel
        Left = 340
        Top = 236
        Width = 47
        Height = 13
        Caption = '10-Oct-95'
      end
      object Label59: TLabel
        Left = 260
        Top = 256
        Width = 227
        Height = 13
        Caption = 'DateDiff and AddDate use the following formats:'
      end
      object Label60: TLabel
        Left = 260
        Top = 298
        Width = 337
        Height = 15
        AutoSize = False
        Caption = 'BW=Boundry Week, BM=Boundry Month, BY=Boundry Year'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        WordWrap = True
      end
      object Label61: TLabel
        Left = 260
        Top = 270
        Width = 208
        Height = 13
        Caption = 'D=Day, W=Week, M=Month, Y=Year'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label66: TLabel
        Left = 260
        Top = 284
        Width = 224
        Height = 13
        Caption = 'DateDiff can also use use the following formats:'
      end
      object Adrock3dCalendar8: TAdrock3dCalendar
        Left = 8
        Top = 8
        Width = 245
        Height = 305
        ButtonsHeight = 25
        CursorSelectable = cuDefault
        CursorNonSelectable = cuDefault
        CursorClick = cuDefault
        MonthButtonPercentage = 65.000000000000000000
        StartOfWeek = swMonday
        WeekDayHeaderBevel = bvRaised
        ColorSaturday = clGreen
        ColorPrevNextMonthBackColor = clBtnFace
        ColorWeekDayHeaderSaturday = clGreen
        Day = 22
        Month = 11
        Year = 1995
        Date = 728619.000000000000000000
        ShowPrevNextMonth = False
        SelectMode = smDuringMouseMove
        MonthLabelFont.Color = clWindowText
        MonthLabelFont.Height = -13
        MonthLabelFont.Name = 'System'
        MonthLabelFont.Style = []
        YearLabelFont.Color = clWindowText
        YearLabelFont.Height = -13
        YearLabelFont.Name = 'System'
        YearLabelFont.Style = []
        ButtonsFont.Color = clWindowText
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'System'
        ButtonsFont.Style = []
        WeekDayHeaderFont.Color = clWindowText
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = []
        CellFont.Color = clWindowText
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = []
        SelectedCellFont.Color = clWindowText
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = []
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Y'
        PreviousMonthCaption = 'M'
        NextYearCaption = 'Y'
        NextMonthCaption = 'M'
        OnDateChange = Adrock3dCalendar8DateChange
        Version = '1.22'
      end
      object AddDateType: TEdit
        Left = 360
        Top = 204
        Width = 25
        Height = 20
        MaxLength = 2
        TabOrder = 1
        Text = 'D'
      end
      object AddDateNumber: TEdit
        Left = 308
        Top = 204
        Width = 25
        Height = 20
        MaxLength = 5
        TabOrder = 2
        Text = '1'
      end
      object DateDiffType: TEdit
        Left = 308
        Top = 232
        Width = 25
        Height = 20
        MaxLength = 2
        TabOrder = 3
        Text = 'D'
      end
      object UpdateAddDateButton: TBitBtn
        Left = 484
        Top = 204
        Width = 109
        Height = 21
        Caption = 'Update AddDate'
        TabOrder = 4
        OnClick = UpdateAddDateButtonClick
      end
      object UpdateDateDiffButton: TBitBtn
        Left = 484
        Top = 232
        Width = 109
        Height = 21
        Caption = 'Update DateDiff'
        TabOrder = 5
        OnClick = UpdateDateDiffButtonClick
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'CalendarMethods'
      object Label3: TLabel
        Left = 12
        Top = 4
        Width = 473
        Height = 33
        AutoSize = False
        Caption =
          'The buttons to the right equate to methods of the same name in t' +
          'he Calendar Control, e.g. NextMonth  = Adrock3dCalendar1.NextMon' +
          'th;'
        Font.Color = clTeal
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Adrock3dCalendar1: TAdrock3dCalendar
        Left = 8
        Top = 40
        Width = 489
        Height = 269
        ButtonsHeight = 25
        MonthButtonPercentage = 65.000000000000000000
        CellSpaceX = 5
        CellSpaceY = 5
        Text3dCells = tsNone
        Text3dWeekDayHeader = tsNone
        StartOfWeek = swSunday
        WeekDayHeaderBevel = bvRaised
        CellBevel = bvRaised
        ColorSaturday = clNavy
        ColorBack = clOlive
        ColorPrevNextMonth = 11267041
        ColorBetweenCellsBackColor = clOlive
        ColorSelectedBackColor = clBlue
        ColorPrevNextMonthBackColor = clBtnFace
        ColorWeekDayHeaderBackColor = clTeal
        ColorWeekDayHeaderSaturday = clNavy
        Day = 21
        Month = 11
        Year = 1995
        Date = 728618.000000000000000000
        ShowPrevNextMonth = False
        MonthLabelFont.Color = clMaroon
        MonthLabelFont.Height = -21
        MonthLabelFont.Name = 'Times New Roman'
        MonthLabelFont.Style = [fsBold]
        YearLabelFont.Color = clMaroon
        YearLabelFont.Height = -19
        YearLabelFont.Name = 'Times New Roman'
        YearLabelFont.Style = [fsBold]
        ButtonsFont.Color = clWindowText
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'System'
        ButtonsFont.Style = []
        WeekDayHeaderFont.Color = clBlack
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = [fsBold]
        CellFont.Color = clWindowText
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = []
        SelectedCellFont.Color = clWhite
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = [fsBold]
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Year'
        PreviousMonthCaption = 'Previous Month'
        NextYearCaption = 'Year'
        NextMonthCaption = 'Next Month'
        Version = '1.22'
        object Label21: TLabel
          Left = 124
          Top = 12
          Width = 276
          Height = 13
          Caption = '<< Combo box'#39's are a feature of the Calendar >>'
          Font.Color = clMaroon
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = True
        end
      end
      object BitBtn3: TBitBtn
        Left = 504
        Top = 95
        Width = 89
        Height = 22
        Caption = '&NextDay'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnClick = BitBtn3Click
      end
      object BitBtn4: TBitBtn
        Left = 504
        Top = 123
        Width = 89
        Height = 22
        Caption = '&PrevDay'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 2
        OnClick = BitBtn4Click
      end
      object BitBtn5: TBitBtn
        Left = 504
        Top = 150
        Width = 89
        Height = 22
        Caption = '&NextWeek'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnClick = BitBtn5Click
      end
      object BitBtn6: TBitBtn
        Left = 504
        Top = 178
        Width = 89
        Height = 22
        Caption = '&PrevWeek'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 4
        OnClick = BitBtn6Click
      end
      object BitBtn7: TBitBtn
        Left = 504
        Top = 205
        Width = 89
        Height = 22
        Caption = '&NextMonth'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 5
        OnClick = BitBtn7Click
      end
      object BitBtn8: TBitBtn
        Left = 504
        Top = 233
        Width = 89
        Height = 22
        Caption = '&PrevMonth'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 6
        OnClick = BitBtn8Click
      end
      object BitBtn9: TBitBtn
        Left = 504
        Top = 260
        Width = 89
        Height = 22
        Caption = '&NextYear'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 7
        OnClick = BitBtn9Click
      end
      object BitBtn10: TBitBtn
        Left = 504
        Top = 288
        Width = 89
        Height = 22
        Caption = '&PrevYear'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 8
        OnClick = BitBtn10Click
      end
      object TodayButton: TBitBtn
        Left = 504
        Top = 40
        Width = 89
        Height = 22
        Caption = '&Today'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 9
        OnClick = TodayButtonClick
      end
      object SetDateButton: TBitBtn
        Left = 504
        Top = 68
        Width = 89
        Height = 22
        Caption = '25-Jan-96'
        Font.Color = clBlack
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 10
        OnClick = SetDateButtonClick
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Events'
      object Adrock3dCalendar3: TAdrock3dCalendar
        Left = 4
        Top = 12
        Width = 245
        Height = 229
        ButtonsHeight = 25
        MonthButtonPercentage = 65.000000000000000000
        CellSpaceX = 0
        CellSpaceY = 0
        StartOfWeek = swSunday
        WeekDayHeaderBevel = bvRaised
        CellBevel = bvRaised
        ColorSaturday = clGreen
        ColorBack = clSilver
        ColorPrevNextMonth = 11267041
        ColorCellsBack = clSilver
        ColorBetweenCellsBackColor = clOlive
        ColorSelectedBackColor = clBlue
        ColorPrevNextMonthBackColor = clBtnFace
        ColorCellsHighlight = clNavy
        ColorCellsShadow = clHighlightText
        ColorWeekDayHeaderSaturday = clGreen
        Day = 21
        Month = 11
        Year = 1995
        Date = 728618.000000000000000000
        ShowPrevNextMonth = False
        MouseMode = cmClickOnCell
        MonthLabelFont.Color = clTeal
        MonthLabelFont.Height = -24
        MonthLabelFont.Name = 'Times New Roman'
        MonthLabelFont.Style = [fsBold]
        YearLabelFont.Color = clMaroon
        YearLabelFont.Height = -24
        YearLabelFont.Name = 'Times New Roman'
        YearLabelFont.Style = [fsBold]
        ButtonsFont.Color = clWindowText
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'System'
        ButtonsFont.Style = []
        WeekDayHeaderFont.Color = clBlack
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = [fsBold]
        CellFont.Color = clWindowText
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = []
        SelectedCellFont.Color = clWhite
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = [fsBold]
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Y'
        PreviousMonthCaption = 'M'
        NextYearCaption = 'Y'
        NextMonthCaption = 'M'
        OnDateChange = Adrock3dCalendar3DateChange
        OnDayChange = Adrock3dCalendar3DayChange
        OnWeekChange = Adrock3dCalendar3WeekChange
        OnMonthChange = Adrock3dCalendar3MonthChange
        OnYearChange = Adrock3dCalendar3YearChange
        Version = '1.22'
      end
      object EventsListBox: TListBox
        Left = 256
        Top = 12
        Width = 337
        Height = 201
        Cursor = crArrow
        ItemHeight = 13
        TabOrder = 1
      end
      object Panel1: TPanel
        Left = 4
        Top = 248
        Width = 589
        Height = 65
        BevelOuter = bvLowered
        TabOrder = 2
        object OnDateChangeCheckBox: TCheckBox
          Left = 8
          Top = 4
          Width = 97
          Height = 17
          Caption = 'onDateChanged'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 0
        end
        object onDayChangeCheckBox: TCheckBox
          Left = 136
          Top = 4
          Width = 97
          Height = 17
          Caption = 'onDayChanged'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 1
        end
        object onMonthChangeCheckBox: TCheckBox
          Left = 136
          Top = 20
          Width = 101
          Height = 17
          Caption = 'onMonthChanged'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 2
        end
        object OnYearChangeCheckBox: TCheckBox
          Left = 268
          Top = 20
          Width = 97
          Height = 17
          Caption = 'onYearChanged'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 3
        end
        object OnCellClickCheckBox: TCheckBox
          Left = 8
          Top = 24
          Width = 97
          Height = 17
          Caption = 'onCellClick'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 4
        end
        object onCellDblClickCheckBox: TCheckBox
          Left = 8
          Top = 44
          Width = 97
          Height = 17
          Caption = 'onCellDblClick'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 5
        end
        object CheckBox1: TCheckBox
          Left = 412
          Top = 8
          Width = 161
          Height = 17
          Caption = 'cmClickAndMoveAroundCells'
          TabOrder = 6
          OnClick = CheckBox1Click
        end
        object CheckBox3: TCheckBox
          Left = 412
          Top = 24
          Width = 165
          Height = 17
          Caption = 'smSelectAndMoveAroundCells'
          TabOrder = 7
          OnClick = CheckBox3Click
        end
        object OnWeekChangeCheckBox: TCheckBox
          Left = 268
          Top = 4
          Width = 97
          Height = 17
          Caption = 'onWeekChanged'
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          State = cbChecked
          TabOrder = 8
        end
      end
      object BitBtn13: TBitBtn
        Left = 256
        Top = 216
        Width = 337
        Height = 25
        Caption = 'Clear Events List Box'
        TabOrder = 3
        OnClick = BitBtn13Click
        Glyph.Data = {
          56070000424D5607000000000000360400002800000028000000140000000100
          0800000000002003000000000000000000000000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
          A600000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          0000000000000000000000000000000000000000000000000000000000000000
          000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
          0303030303030303030303030303030303030303030303030303030303030303
          0303030303030303030303030303030303030303030303030303030303030303
          0303030303030303030303030303030303030303030303030303030303030303
          030303030303030303030303030303030303FF030303FF030303030303030303
          0303030303030303030303030303030303030303030303030303FF0303FFFFFF
          0303FF0303030303030303030303030303030303030303030303030303030303
          0303FFFFFFFFFFFFFFFFFFFF03030303030303030303030303030303030303FF
          FFFFFF03030303030303FFFFFFFFFFFFFFFFF801010103030303030303030303
          030303030303F8F8F8F8FFFF030303030303FFFFFFFFFFFFFFF8F9FDFD050103
          03030303030303030303030303F8FF0303F8F8FFFF0303030303FFFFFFFFFFFF
          FFF9FDF9FDFD050103030303030303030303030303F8FF030303F8F8FFFF0303
          0303FFFFFFFFFFFF03FDF9FFF9FDFD0500030303030303030303030303F8FF03
          030303F8F8FFFF030303FFFF03FFFFFF03F9FDFFFDF9FD000600030303030303
          0303030303F803FF030303F8F8F8FFFF0303FF030303FF030303F9FDFFFD0002
          0406000303030303030303030303F803FF03F8F8F8F8F8FFFF03FF0303030303
          030303F9FD00FA02020406000303030303030303030303F803F803F8F8F8F8F8
          FFFF0303030303030303030300FAFBFA020200F8000303030303030303030303
          F803FF03F8F8F8F8F8FF030303030303030303030300FAFBFA0004F8F8000303
          030303030303030303F803FF03F8F8F8F8F803030303030303030303030300FA
          0007FB04F8F8030303030303030303030303F803F80303F8F8F8030303030303
          030303030303030007FFFBFB04F803030303030303030303030303F803FF0303
          F8F8030303030303030303030303030300FFFFFBFB0403030303030303030303
          03030303F803FF0303F803030303030303030303030303030300FFFFFBFB0303
          03030303030303030303030303F803FF03030303030303030303030303030303
          030300FFFFFB03030303030303030303030303030303F8030303}
        NumGlyphs = 2
      end
    end
    object TTabPage
      Left = 5
      Top = 45
      Caption = 'Drag && Drop'
      object Label17: TLabel
        Left = 428
        Top = 180
        Width = 165
        Height = 29
        AutoSize = False
        Caption = 'Drag a date from the calendar to this edit field.'
      end
      object Label18: TLabel
        Left = 4
        Top = 224
        Width = 345
        Height = 13
        Caption =
          'Details that can be obtained when something is dropped on the ca' +
          'lendar.'
      end
      object Label19: TLabel
        Left = 428
        Top = 8
        Width = 165
        Height = 29
        AutoSize = False
        Caption = 'Drag && drop a name from below to the calendar.'
      end
      object Label20: TLabel
        Left = 424
        Top = 100
        Width = 173
        Height = 29
        AutoSize = False
        Caption = 'Drag && drop a picture from below to the calendar.'
      end
      object Adrock3dCalendar5: TAdrock3dCalendar
        Left = 4
        Top = 8
        Width = 417
        Height = 209
        OnDragDrop = Adrock3dCalendar5DragDrop
        OnDragOver = Adrock3dCalendar5DragOver
        DragMode = dmEnabled
        ButtonsHeight = 25
        CursorSelectable = cuDefault
        CursorClick = cuDefault
        MonthButtonPercentage = 55.000000000000010000
        CellSpaceX = 0
        CellSpaceY = 0
        Text3dCells = tsNone
        StartOfWeek = swMonday
        WeekDayHeaderBevel = bvRaised
        CellBevelWidth = 2
        Style = odOwnerDraw
        ShowOnCalendar = scNothing
        ColorSaturday = clMaroon
        ColorMonFri = clGreen
        ColorBack = 16744576
        ColorCellsBack = clLime
        ColorBetweenCellsBackColor = clTeal
        ColorSelectedBackColor = clGreen
        ColorPrevNextMonthBackColor = clWhite
        ColorWeekDayHeaderSaturday = clGreen
        Day = 1
        Month = 11
        Year = 1995
        Date = 728598.000000000000000000
        MouseMode = cmClickOnCell
        MonthLabelFont.Color = clBlue
        MonthLabelFont.Height = -16
        MonthLabelFont.Name = 'MS Sans Serif'
        MonthLabelFont.Style = [fsBold]
        YearLabelFont.Color = clMaroon
        YearLabelFont.Height = -16
        YearLabelFont.Name = 'MS Sans Serif'
        YearLabelFont.Style = [fsBold]
        ButtonsFont.Color = clMaroon
        ButtonsFont.Height = -13
        ButtonsFont.Name = 'Times New Roman'
        ButtonsFont.Style = [fsBold]
        WeekDayHeaderFont.Color = clBlack
        WeekDayHeaderFont.Height = -13
        WeekDayHeaderFont.Name = 'System'
        WeekDayHeaderFont.Style = [fsBold]
        CellFont.Color = clWindowText
        CellFont.Height = -13
        CellFont.Name = 'System'
        CellFont.Style = []
        SelectedCellFont.Color = clWindowText
        SelectedCellFont.Height = -13
        SelectedCellFont.Name = 'System'
        SelectedCellFont.Style = []
        CombosFont.Color = clWindowText
        CombosFont.Height = -13
        CombosFont.Name = 'System'
        CombosFont.Style = []
        PreviousYearCaption = 'Year'
        PreviousMonthCaption = 'Mon'
        NextYearCaption = 'Year'
        NextMonthCaption = 'Mon'
        OnDateChange = Adrock3dCalendar2DateChange
        OnDrawCell = Adrock3dCalendar5DrawCell
        Version = '1.22'
      end
      object ListBox3: TListBox
        Left = 500
        Top = 28
        Width = 93
        Height = 69
        DragMode = dmAutomatic
        ItemHeight = 13
        Items.Strings = (
          'Chris'
          'Marty'
          'Mary'
          'Hank'
          'Bob'
          '')
        TabOrder = 1
      end
      object ListBox5: TListBox
        Left = 500
        Top = 116
        Width = 93
        Height = 53
        DragMode = dmAutomatic
        ItemHeight = 13
        Items.Strings = (
          'Alarm')
        TabOrder = 2
      end
      object ListBox4: TListBox
        Left = 4
        Top = 240
        Width = 589
        Height = 71
        ItemHeight = 13
        TabOrder = 3
      end
      object Edit1: TEdit
        Left = 500
        Top = 196
        Width = 93
        Height = 20
        TabOrder = 4
        OnDragDrop = Edit1DragDrop
        OnDragOver = Edit1DragOver
      end
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 564
  end
  object ColorDialog1: TColorDialog
    Left = 536
  end
end